Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Herois/Codigo.Cst/00133_Midias- BarraScroll.ls

Text File | 1999-03-19 | 934 b | 35 lines

on mouseDown me
  -- Constantes iniciais
  set spr = the spriteNum of me
  set sprIndicador = 84
  set posCima = 15
  set posBaixo = 73
  set tmp = the timer - 12
  set primeiro = true

  repeat while the mouseDown
    if the timer > tmp - 12 then
      set tmp = the timer
      if the mouseV < the locV of sprite spr + posCima then
        -- Scroll cima
        midiaScroll -1
      else if the mouseV > the locV of sprite spr + posBaixo then
        -- Scroll baixo
        midiaScroll +1
      else if the mouseV < the locV of sprite sprIndicador then
        -- Scroll pagina cima
        midiaScroll -6
        set tmp = tmp + 12
      else if the mouseV > the locV of sprite sprIndicador then
        -- Scroll pagina baixo
        midiaScroll +6
        set tmp = tmp + 12
      end if
      updateStage
      if primeiro then
        set primeiro = false
        set tmp = tmp + 60
      end if
    end if
  end repeat
end